home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / tunzerog.scp < prev    next >
Encoding:
Text File  |  1994-12-05  |  3.0 KB  |  179 lines
  1. // *** ZERO G ***
  2.  
  3. { ZEG_LOAD
  4.     I  @Çû             (^êÉ              ) THEN         (^êÉ              )
  5.     
  6.     N     (^è⌐        )
  7.         {
  8.         U    0
  9.             O     $Çâ    
  10.         }
  11.     ^è⌐         = 1
  12.  
  13.     // FOR SOME REASON, WHEN WE FIRST ENTER THIS ROOM LEX IS RUNNING HIS
  14.     //   'STAND' MOTION EVEN THOUGH HE'S NOT (HIS BASE_MOTION_NAME SAYS
  15.     //   'STAND'.  SO, TO CLEAR THIS, THIS SHOULD WORK. -BES
  16.     M      FLOAT CONTINUE SNAP_TO
  17.     // APON FIRST ENTERING THIS ROOM, FLOAT
  18.     //MOTION STAND CONTINUE SNAP_TO
  19.  
  20.     @Ç¥   MARINESENTERTEMPLE
  21.  
  22.     I  @Çæ        ( RTHAND BLASTER ) != 1 AND @Çæ        ( RTHAND TONFA ) != 1 THEN
  23.     {
  24.         @Çì      ZEROG_CLUE
  25.     }
  26.  
  27. }
  28.  
  29. { ZEROG_TURNING
  30.     ó               ZEG1 ZEG2 ZEG3 ZEG4
  31.     @Ç¢              ( PLAYER )
  32.  
  33.     :TOP
  34.     I  @Çñ          ($飠       ) OR @Çñ          ($éá        ) OR @Çñ          ($éñ        ) THEN
  35.         T    10
  36.  
  37.     I  @Çñ          ($é₧        ) OR @Çñ          ($éó        ) OR @Çñ          ($骠       ) THEN
  38.         T    -10
  39.  
  40.     â      
  41.     J    #Çé
  42. }
  43.  
  44.  
  45.  
  46. { ZEROG_ROOM
  47.     ó               ZEG1 ZEG2 ZEG3 ZEG4
  48.     @Ç¢               PLAYER
  49.  
  50.     :TOP
  51.     ^éä         ++
  52.     ^éà         ++
  53.     ^éå         ++
  54.     ^åê         ++
  55.     â      
  56.  
  57.     I  ^åê         = 5 THEN @Çå   (`éë     )
  58.     I  ^åê         = 19 THEN
  59.         {
  60.         ^éä         = 0
  61.         ^éà         = 0
  62.         ^éå         = 0
  63.         ^åê         = 0
  64.         J    #Çä
  65.         }
  66.     J    #Çä
  67. }
  68.  
  69.  
  70.  
  71. [ ZEROG_GRAVITY
  72.     P        ~ÇÇ   
  73.     P        ~Çü   
  74.  
  75.     ó               ZEG1 ZEG2 ZEG3 ZEG4
  76.     @Ç¢               PLAYER
  77.  
  78.     // JUST TO MAKE SURE THIS PROCESS DOESN'T START TOO SOON
  79.     :WAIT_FOR_ZEROG
  80.     â      
  81.     I  @ÇÄ             (ZEG) = $Ç╗    THEN J    #Çå           
  82.  
  83.     :TOP
  84.     00:15   I  ^çô              THEN
  85.                 R    CURFIG GRAVPT 0 2
  86.             E   
  87.                 R    CURFIG GRAVPT 0 1
  88.  
  89.             // DON'T ALLOW ANY CHANGES IN HIS Z-COORDINATE!
  90.             ~ÇÇ    = @üé       (CURFIG)
  91.             ~Çü    = @üâ       (CURFIG)
  92.             »           CURFIG ~ÇÇ    ~Çü    0
  93.  
  94.             ò            
  95.             J    #Çç
  96. ]
  97.  
  98.  
  99.  
  100. // FROM ZERO-G ROOM
  101. { TO_TUNRM
  102.     A  OFF
  103.     Æ              
  104.     ñ            CURFIG
  105.     Z       CURFIG ON
  106.     r          CURFIG OFF
  107.     // SEND IN 1 SO WE DON'T RUN THE STARTING MOTION -BES
  108.     @Ç¥   ENTERTUBEROOM 1
  109.     £    180
  110.     G  FRMZEROG
  111.     //FLOATATHEIGHT FRMZEROG
  112.     A  ON
  113. }
  114.  
  115.  
  116.  
  117. { ZEROG_KEYBOARD _KEY _MODIFIERS _MOUSE
  118.  
  119.     I  @Ç╛    () = $Ç╗    THEN é     
  120.  
  121.     N      ~ÇÇ 
  122.         {
  123.         U    $éí        
  124.             I  @Çæ        (RTHAND,BLASTER) OR @Çæ        (RTHAND,TONFA) THEN
  125.                 {
  126.                 I  @Ç⌐      (LEXMIR) THEN
  127.                     {
  128.                     M      ZERO_G_FIRE_FAIL
  129.                     @Çì      ADDLOGWEAPONSFAIL
  130.                     }
  131.                 E   
  132.                     M      ZERO_G_FIRE
  133.                 }
  134.             X Çü 
  135.  
  136.         U    $ü¡  
  137.             I  @ÇÜ            (LTHAND) THEN
  138.                 f         INVENTORY
  139.             E   
  140.                 @Çì      PIMM_INVENTORY
  141.             X Çü 
  142.  
  143.         U    $ü║  
  144.             @Çì      PIMM_JOURNAL
  145.             X Çü 
  146.  
  147.         U    $ü╢  
  148.             @Çì      PIMM_DIAGNOSTICS
  149.             X Çü 
  150.  
  151.         U    $ü»  
  152.             @Çì      PIMM
  153.             X Çü 
  154.  
  155.         U    $ü«  
  156.             à        $âÜ          
  157.             X Çü 
  158.  
  159.         U    $ü⌐  
  160.             à        $â₧          
  161.             X Çü 
  162.  
  163.         U    $ü╡  
  164.             à        $⥠      
  165.             X Çü 
  166.         }
  167.     é     
  168. }
  169.  
  170.  
  171.  
  172. [ ZEROG_CLUE
  173.  
  174.     30:00   i           LEX ZEROG
  175.  
  176. ]
  177.  
  178. //$ 26 - version number
  179.